home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / chemic.zip / H2SO4.DAT < prev    next >
Text File  |  1987-09-07  |  1KB  |  26 lines

  1. chemical_name("H2SO4  Sulfuric Acid")
  2. chemical(a(7,"H",o("1s",1,"σ",3)))
  3. chemical(a(3,"O",o("3p(z)",1,"σ",7)))
  4. chemical(a(6,"H",o("1s",1,"σ",2)))
  5. chemical(a(2,"O",o("3p(z)",1,"σ",6)))
  6. chemical(a(5,"O",o("3d(a)",1,"σ",1)))
  7. chemical(a(1,"S",o("sp3~",1,"σ",5)))
  8. chemical(a(4,"O",o("3d(a)",1,"σ",1)))
  9. chemical(a(1,"S",o("sp3^",1,"σ",4)))
  10. chemical(a(3,"O",o("3p(y)",1,"σ",1)))
  11. chemical(a(1,"S",o("sp3'",1,"σ",3)))
  12. chemical(a(2,"O",o("3p(y)",1,"σ",1)))
  13. chemical(a(1,"S",o("sp3`",1,"σ",2)))
  14. atomlocation(1,l(-312,-399,-10,1.03,0,0,0,9),1)
  15. atomlocation(2,l(1528,-1149,1044,0.7,2.1894730861,32.46672287,0.29997396999,6),1)
  16. atomlocation(3,l(-312,1850,-10,0.7,0,31.41592654,0,6),1)
  17. atomlocation(4,l(-2140,-1149,1065,0.7,0.60926906971,-2.6099999964,0.064788566157,6),1)
  18. atomlocation(5,l(-317,-1149,-2130,0.7,5.9431826338,-4.7099999964,0.00041007756636,6),1)
  19. atomlocation(6,l(1864,146,1447,0.375,5.0137815598,-0.87614213728,0.46398410647,1),1)
  20. atomlocation(7,l(-312,1850,-1407,0.375,0,1.57079633,0,1),1)
  21. commandactive("Files")
  22. viewshown("Rht")
  23. grid(8)
  24. atom_count(8)
  25. valencelist(1,1,6)
  26.